

library(preprocessCore)
library(MASS)
library(affy)
library(simpleaffy)
library(frma)
setwd('/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/maqc/affy_plus2_taqman/6')
data <- ReadAffy()
object <- frma(data, summarize = "batch")
write.exprs(object,"normalized_frma_normalcdf.txt",sep="\t")
